home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Morpha / 3DO.DXR / 00005_mapercontrol.ls < prev    next >
Encoding:
Text File  |  1998-07-31  |  546 b   |  18 lines
  1. property mywidth, myheight
  2. global rx, ry, rz
  3.  
  4. on beginSprite me
  5.   set mywidth to the left of sprite the currentSpriteNum + (the width of sprite the currentSpriteNum / 2)
  6.   set myheight to the top of sprite the currentSpriteNum + (the height of sprite the currentSpriteNum / 2)
  7. end
  8.  
  9. on mouseWithin me
  10.   set horz to float(the mouseV - myheight)
  11.   set vert to float(the mouseH - mywidth)
  12.   set rx to float(horz * 0.01)
  13.   set ry to float(vert * 0.01)
  14.   sendAllSprites(#xfix, rx)
  15.   sendAllSprites(#yfix, ry)
  16.   put "x,y,z rotate" into field "info"
  17. end
  18.